home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / DeskLight 20628652001.psc / Line3D.ctl < prev    next >
Encoding:
Text File  |  2000-07-10  |  2.0 KB  |  73 lines
  1. VERSION 5.00
  2. Begin VB.UserControl Line3D 
  3.    ClientHeight    =   105
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   4800
  7.    ScaleHeight     =   105
  8.    ScaleWidth      =   4800
  9.    Begin VB.Line Line1 
  10.       BorderColor     =   &H00FFFFFF&
  11.       Index           =   1
  12.       X1              =   -150
  13.       X2              =   1260
  14.       Y1              =   45
  15.       Y2              =   45
  16.    End
  17.    Begin VB.Line Line1 
  18.       BorderColor     =   &H00808080&
  19.       Index           =   0
  20.       X1              =   -150
  21.       X2              =   1260
  22.       Y1              =   30
  23.       Y2              =   30
  24.    End
  25. End
  26. Attribute VB_Name = "Line3D"
  27. Attribute VB_GlobalNameSpace = False
  28. Attribute VB_Creatable = True
  29. Attribute VB_PredeclaredId = False
  30. Attribute VB_Exposed = False
  31. Private Sub UserControl_Resize()
  32. Dim Msg
  33.  On Error Resume Next
  34.     UserControl.Height = 105
  35.     Line1(0).X2 = UserControl.Width
  36.     Line1(1).X2 = UserControl.Width
  37.  If Err Then Err.Clear
  38.  
  39. End Sub
  40.  
  41. Public Property Get TopColour() As OLE_COLOR
  42.     TopColour = Line1(0).BorderColor
  43. End Property
  44.  
  45. Public Property Let TopColour(ByVal New_TopColour As OLE_COLOR)
  46.     Line1(0).BorderColor() = New_TopColour
  47.     PropertyChanged "TopColour"
  48. End Property
  49.  
  50. Public Property Get BottomColour() As OLE_COLOR
  51.     BottomColour = Line1(1).BorderColor
  52. End Property
  53.  
  54. Public Property Let BottomColour(ByVal New_BottomColour As OLE_COLOR)
  55.     Line1(1).BorderColor() = New_BottomColour
  56.     PropertyChanged "BottomColour"
  57. End Property
  58.  
  59. 'Load property values from storage
  60. Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  61.  
  62.     Line1(0).BorderColor = PropBag.ReadProperty("TopColour", &H808080)
  63.     Line1(1).BorderColor = PropBag.ReadProperty("BottomColour", &HFFFFFF)
  64. End Sub
  65.  
  66. Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  67.  
  68.     Call PropBag.WriteProperty("TopColour", Line1(0).BorderColor, &H808080)
  69.     Call PropBag.WriteProperty("BottomColour", Line1(1).BorderColor, &HFFFFFF)
  70. End Sub
  71.  
  72.  
  73.